home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Opera 1.xpl < prev    next >
Text File  |  2001-02-10  |  2KB  |  114 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Internet\Opera\"
  5. "NAME"="Window Settings"
  6. "VERSION"="1.10"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Automatically tile Opera windows"
  9. "TEXT 2"="Automatically run Opera windows in Full Screen"
  10. "TEXT 3"="Enable scroll bars in Opera windows"
  11. "TEXT 4"="Display menu bar for File, Edit, View..."
  12. "DESCRIPTION 1"="Some options for Opera."
  13. "DESCRIPTION 2"="Opera may be obtained at http://www.opera.com"
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
  19.  
  20.  
  21. sFile=""
  22. sVal_On="1"
  23. sVal_Off="0"
  24.  
  25. sSec="USER PREFS"
  26. sSec2="WINDOW"
  27. sV1="AUTO TILE"
  28. sV2="FullScreen"
  29. sV3="SHOW SCROLLBARS"
  30. sV4="SHOW MENU"
  31.  
  32.  
  33. Sub GetINIFile    
  34.     sPath=RegReadValue("HKCU\Software\Opera Software\Last Directory")
  35.     sFile=sPath & "\OPERA.ini"
  36.  
  37.     if FileExists(sFile)=false then
  38.        sFile=GetWinDir & "OPERA.ini"
  39.     end if   
  40. End Sub
  41.  
  42.  
  43.  
  44. Sub Plugin_Initialize 
  45.  Call GetINIFile
  46.  
  47.  If FileExists(sFile) then
  48.  
  49.     i=IniReadValue(sFile,sSec,sV1)
  50.     if i=sVal_On then SetUiElement 1,true
  51.  
  52.     i=IniReadValue(sFile,sSec2,sV2)
  53.     if i=sVal_On then SetUiElement 2,true
  54.  
  55.     i=IniReadValue(sFile,sSec,sV3)
  56.     if i=sVal_On then SetUiElement 3,true
  57.  
  58.     i=IniReadValue(sFile,sSec,sV4)
  59.     if i=sVal_On then SetUiElement 4,true
  60.  
  61.  else
  62.     Call Disable()
  63.  End if
  64.  
  65. End Sub
  66.  
  67.  
  68. Sub Plugin_CheckData(ElementIndex)
  69. End Sub
  70.  
  71.  
  72.  
  73. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  74.  b=GetUIElement(1)
  75.  if b=true then 
  76.     s=sVal_On
  77.  else
  78.     s=sVal_Off
  79.  end if
  80.  Call iniWriteValue(sFile,sSec,sV1,s)
  81.  
  82.  b=GetUIElement(2)
  83.  if b=true then 
  84.     s=sVal_On
  85.  else
  86.     s=sVal_Off
  87.  end if
  88.  Call iniWriteValue(sFile,sSec2,sV2,s)
  89.  
  90.  b=GetUIElement(3)
  91.  if b=true then 
  92.     s=sVal_On
  93.  else
  94.     s=sVal_Off
  95.  end if
  96.  Call iniWriteValue(sFile,sSec,sV3,s)
  97.  
  98.  b=GetUIElement(4)
  99.  if b=true then 
  100.     s=sVal_On
  101.  else
  102.     s=sVal_Off
  103.  end if
  104.  Call iniWriteValue(sFile,sSec,sV4,s)
  105.  
  106. End Sub
  107.  
  108.  
  109. Sub Plugin_Terminate 
  110. End Sub
  111.  
  112.  
  113.  
  114.